home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 16 / AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso / pd / anwendungen / gurus98 / install_ni < prev    next >
Text File  |  1998-08-28  |  2KB  |  122 lines
  1. ; $VER: Install Gurus98
  2. ; © by Demon 1998
  3. ;======================
  4.  
  5. (complete 0)
  6.  
  7. (IF (= @language "deutsch")
  8. (
  9. (set Opt 1)
  10. (set #welcome
  11.   (cat
  12.     "\n\n\nWillkommen beim Gurus98 - Installer\n\n"
  13.     "Dieses Programm installiert Gurus98 mit NewIcons\n\n"
  14.     "(Alte Versionen werden gelöscht)\n\n\n"
  15.     "Gurus98  © by Demon 1998"
  16.   ))
  17.  
  18. (set #choose-text
  19.  (cat "Wähle das Verzeichnis wohin Gurus98 installiert werden soll. Ein Verzeichnis namens Gurus98 wird dort angelegt."
  20.   ))
  21.  
  22. (set #choose-help
  23.   (cat "Bei der Installation werden alle Dateien in dieses Verzeichnis kopiert."
  24.   ))
  25.  
  26. (SET #exit
  27.   (CAT "\n\nViel Spaß mit Gurus98\n\n wünscht\n\n"
  28.                    "Heiko Gyrok"
  29.   ))
  30. ))
  31.  
  32. ;***********************************
  33.  
  34. (message #welcome)
  35.  
  36. (welcome)
  37.  
  38. (set @default "SYS:")
  39. (set @default (askdir
  40.     (prompt #choose-text)
  41.     (help #choose-help)
  42.     (default @default))
  43.   ) 
  44.  
  45. (set a
  46.   (run ("C:delete %s" (tackon @default "gurus/#? all")))
  47. )
  48. (set a
  49.   (run ("C:delete %s" (tackon @default "gurus/")))
  50. )
  51. (set a
  52.   (run ("C:delete %s" (tackon @default "gurus.info")))
  53. )
  54. (set a
  55.   (run ("C:delete %s" (tackon @default "gurus97/#? all")))
  56. )
  57. (set a
  58.   (run ("C:delete %s" (tackon @default "gurus97/")))
  59. )
  60. (set a
  61.   (run ("C:delete %s" (tackon @default "gurus97.info")))
  62. )
  63. (set a
  64.   (run ("C:delete %s" (tackon @default "gurus98/#? all")))
  65. )
  66.  
  67. (copyfiles (source ".inf_ni") (dest @default) (newname "Gurus98.info") (optional "nofail") )
  68.  
  69. (makedir @default)
  70.  
  71. (set @default (tackon @default "Gurus98"))
  72.  
  73. ;***********************************
  74.  
  75. (copyfiles
  76.     (prompt "Installiere Gurus98")
  77.     (help    @copyfiles-help)
  78.     (source "G98")
  79.     (dest    @default)
  80.    (newname "Gurus98")
  81.    (infos)
  82. )
  83. (copyfiles
  84.     (source "G.htm")
  85.     (dest    @default)
  86.       (newname "Gurus98.html")
  87.       (infos)
  88. )
  89. (copyfiles
  90.     (source "LM")
  91.     (dest    @default)
  92.       (newname "Lies_Mich")
  93.       (infos)
  94. )
  95. (copyfiles
  96.     (source "ni/")
  97.     (dest    @default)
  98.        (pattern "#?")
  99. )
  100. (complete 6)
  101.  
  102. ;***********************************
  103.  
  104. (copyfiles
  105.     (source "data")
  106.     (dest    (tackon @default "data"))
  107.        (pattern "#?")
  108. )
  109. (complete 99)
  110.  
  111. (copyfiles
  112.     (prompt "Installiere Font")
  113.     (source "font/")
  114.     (dest    "Fonts:")
  115.        (pattern "#?")
  116. )
  117. (complete 100)
  118.  
  119. (run "run data/show Kiss.pic")
  120.  
  121. (EXIT #exit (quiet))
  122.